home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00041.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  286 b   |  14 lines
  1. on exitFrame
  2.   global whatSpeed, whatFactor, frameLoop
  3.   puppetSound(1, "boxfoldng3")
  4.   if frameLoop = 0 then
  5.     set whatSpeed to whatSpeed + (whatFactor + 20)
  6.   end if
  7.   if the timer < whatSpeed then
  8.     set frameLoop to 1
  9.     go(the frame)
  10.   else
  11.     set frameLoop to 0
  12.   end if
  13. end
  14.